import Text.ParserCombinators.Table
import Control.Monad

main = do
  t <- readTable "vega.sed" $ do
    x <- idouble
    y <- double
    eof
    return (x,y)
  case t of
    Left e -> print e
    Right xs -> forM_ xs $ \(l,v) -> do
      print $ "lambda: " ++ show l ++ " intensity: " ++ show v
